Amiga Format 97/af097sub.adf/wzonka.LZX/Wzonka-Lad/Wzonka-Lad Install

Text File | 2019-05-15 | 6KB | 293 lines

; $VER Wzonka-Lad Installer Script 0.57 (12-Feb-97)
; Installer made by Lennart Johannesson
; For comments, bugs (yes, I know there's still a lot of them)
; suggestions etc. write to: [e-mail]


;---------------------------------------------
;|Asks where to place the Wzonka-Lad directory|
;---------------------------------------------

(set @default-dest
    (askdir (prompt "Where would you like me to create the\n\"Wzonka-Lad\" directory?")
            (help @askdir-help)
            (default "Ram:")
            (newpath)
    )
)

;------------------------------
;|Creates Wzonka-Lad directory|
;------------------------------


(set target
    (tackon @default-dest (cat "Wzonka-Lad")))

(makedir target
     (prompt "Creating directory:\n\""target"\"")
    (help @makedir-help)
)

(copyfiles
        (dest @default-dest)
    (source "icons/Wzonka-Lad.info")
        (files))

(set @default-dest (target))

;-------------------------
;|Installs the executable|
;-------------------------

(copyfiles
    (prompt "Where would you like me to put the executable?")
    (help @copyfiles-help)
    (source "Wzonka-Lad")
    (dest @default-dest)
    (files)
    (infos)
    (confirm)
)

(set @default-dest (target))

;------------------------
;|Installs the documents|
;------------------------

(copyfiles
    (prompt "Would you like to install the documents?")
    (help @copyfiles-help)
    (source "Wzonka-Lad Guide")
    (dest @default-dest)
    (files)
    (infos)
    (confirm)
)

;---------------------------
;|Installs lowlevel.library|
;---------------------------

(set @default-dest "libs:")

(copylib
    (prompt "Install lowlevel.library?\n(Required for CD32 Joypad!)")
    (help @copylib-help)
    (source "libs/lowlevel.library")
    (dest @default-dest)
    (confirm)
)


;--------------------
;|Installs the fonts|
;--------------------

(set @default-dest "FONTS:")

(copyfiles
    (prompt "And the fonts...\nWhere do I put them?")
    (help @copyfiles-help)
    (source "fonts/")
    (dest @default-dest)
    (all)
    (confirm)
)

;----------------------------------
;|Installs the sample cartridge(s)|
;----------------------------------

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where would you like to store your cartridges?\n(A drawer called \"cartridges\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "cartridges")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)


(copyfiles
    (prompt "Install the sample cartridge to:\n")
    (help @copyfiles-help)
    (source "cartridges")
    (dest @default-dest)
    (confirm)
    (all)
)

;---------------------------
;|Installs the sample prefs|
;---------------------------

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And your cartridges prefs files?\n(A drawer called \"prefs\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "prefs")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)


(copyfiles
    (prompt "Install the sample prefs-file to:\n")
    (help @copyfiles-help)
    (source "prefs")
    (dest @default-dest)
    (confirm)
    (all)
)

;Installs the sample vgb colour files

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And the VGB (tm) example colour files?\n(A drawer called \"vgb_colour_schemes\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
    )
)

(set @default-dest
    (tackon @default-dest (cat "vgb_colour_schemes")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)


(copyfiles
    (prompt "Install the VGB (tm) example colour files to:\n")
    (help @copyfiles-help)
    (source "vgb_colour_schemes")
    (dest @default-dest)
    (confirm)
    (all)
)

;--------------------------
;|Installs the extra Icons|
;--------------------------

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where do you want the extra icons?\n(A drawer called \"icons\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
        )
    )

(set @default-dest
    (tackon @default-dest (cat "icons")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)


(copyfiles
    (prompt "Install the extra icons to:\n")
    (help @copyfiles-help)
    (source "icons")
    (dest @default-dest)
    (confirm)
    (all)
)

;Installs the tools directory

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "Where do you want the extra tools?\n(A drawer called \"tools\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
        )
    )

(set @default-dest
    (tackon @default-dest (cat "tools")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)


(copyfiles
    (prompt "Install the extra tools to:\n")
    (help @copyfiles-help)
    (source "tools")
    (dest @default-dest)
    (confirm)
    (all)
)

;Installs the gbs directory and an example gbs file

(set @default-dest (target))

(set @default-dest
(askdir    (prompt "And the gbs directory?\n(A drawer called \"gbs\" will be made!)")
    (help @askdir-help)
    (default @default-dest)
    (newpath)
        )
    )

(set @default-dest
    (tackon @default-dest (cat "gbs")))

(makedir @default-dest
    (prompt "Creating directory...")
    (help @makedir-help)
)


(copyfiles
    (prompt "Install an gbs example file to:\n")
    (help @copyfiles-help)
    (source "gbs")
    (dest @default-dest)
    (confirm)
    (all)
)

;--------------------------------
;|Write some copyright stuff Out|
;--------------------------------


(set @default-dest (target))

(message "\nEnjoy your Gameboy (tm) emulator!\n\n(c) Ville Helin 1996-1997\[e-mail]\n\n For comments about the installer mail to:\nLennart Johannesson\[e-mail]")